Run Magazine ReRun 1988 September & October/rerun-1988-09-10a.d64/joystick pointer

Commodore BASIC | 2022-09-20 | 1KB | 25 lines

10 rem joystick pointer - kenny lawson
20 forx=680to695:reada:pokex,a:ct=ct+a:next
30 forx=40960to41311:reada:pokex,a:ct=ct+a:next
40 ifct<>37849thenprint"[147]error in data statements!":end
50 printchr$(147)"run joystick prg#2 to see emulator."
60 data 165,1,41,254,133,1,32,0,160,165,1,9,1,133,1,96,162,0,189,32,161
70 data 157,192,2,232,224,64,208,245,165,170,141,0,170,169,11,141,248,7
80 data 169,1,141,21,208,169,0,141,16,208,141,27,208,141,31,208,141,39
90 data 208,169,24,141,0,208,169,50,141,1,208,173,0,220,133,170,41,16
100 data 208,6,173,0,170,76,19,161,165,170,41,15,133,170,169,15,56,229
110 data 170,240,228,201,1,208,6,32,235,160,76,1,161,201,2,208,6,32,246
120 data 160,76,1,161,201,4,208,6,32,175,160,76,1,161,201,8,208,6,32,205
130 data 160,76,1,161,201,5,208,9,32,235,160,32,175,160,76,1,161,201,9
140 data 208,9,32,235,160,32,205,160,76,1,161,201,6,208,9,32,246,160,32
150 data 175,160,76,1,161,201,10,208,9,32,246,160,32,205,160,76,1,161,76
160 data 52,160,173,16,208,240,14,173,0,208,208,16,206,16,208,169,255
170 data 141,0,208,96,173,0,208,201,24,240,3,206,0,208,96,173,16,208,240
180 data 11,173,0,208,201,82,240,3,238,0,208,96,173,0,208,201,255,208
190 data 245,238,0,208,238,16,208,96,173,1,208,201,50,240,3,206,1,208,96
200 data 173,1,208,201,245,240,3,238,1,208,96,162,16,160,100,136,208,253
210 data 202,208,248,169,0,141,31,208,76,52,160,174,31,208,240,243,133
220 data 170,169,0,141,21,208,96,240,0,0,192,0,0,160,0,0,144,0,0,8,0,0,0
230 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
240 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0